home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesU-Z.lzh / WWFWrestlemania.lha / WWFWrestlemaniaHD / Install next >
Text File  |  2001-12-28  |  6KB  |  292 lines
  1. ;****************************
  2.  
  3. (set #readme-file "ReadMe")        ;name of readme file
  4. (set #docs-file "Instructions")        ;name of docs file
  5. (set #highs-file "highs")        ;name of high scores file
  6. (set #cleanup "")            ;files to delete after install
  7. (set #last-file "Disk.2")        ;last file the imager should create
  8.  
  9. ;****************************
  10. ;----------------------------
  11. ; checks if given program is installed, if not abort install
  12. ; #program - to check
  13.  
  14. (procedure P_ChkRun
  15.   (if
  16.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  17.     ("")
  18.     (abort
  19.       (cat
  20.     "You must install \"" #program "\" first!\n"
  21.     "It must be accessible via the path.\n"
  22.     "You can find it in the WHDLoad package."
  23.       )
  24.     )
  25.   )
  26. )
  27.  
  28. (procedure P_MakeImages
  29.  
  30.   (set #CI_disknum 1)
  31.   (set #CI_diskname ("%s Disk %ld" @app-name #CI_disknum))
  32.   (set #CI_disklen 901120)
  33.   (set #CI_skiptrk 1)
  34.   (P_CreateImage)
  35.  
  36.   (set #CI_disknum 2)
  37.   (set #CI_diskname ("%s Disk %ld" @app-name #CI_disknum))
  38.   (set #CI_skiptrk 1)
  39.   (P_CreateImage)
  40. )
  41.  
  42. ;----------------------------
  43. ; Create Image using DIC
  44. ; #dest        - path to save image in
  45. ; #CI_disknum  - number of the disk image to create
  46. ; #CI_diskname - label of the disk
  47. ; #CI_disklen  - length of disk image to create
  48. ; #CI_skiptrk  - track to skip, -1 means no skip
  49. ; #CI_drive    - drive to create image from
  50.  
  51. (procedure P_CreateImage
  52.   (message
  53.     (cat
  54.     "\nInsert \"" #CI_diskname "\" into drive " #CI_drive "!\n\n"
  55.     "(make sure it's the right disk because it will not be checked)"
  56.     )
  57.   )
  58.   (if
  59.     (>= #CI_skiptrk 0)
  60.     (set #option (cat " SKIPTRACK=" #CI_skiptrk))
  61.     (set #option "")
  62.   )
  63.   (if
  64.     (= 0
  65.       (run 
  66.         (cat
  67.           "cd \"" #dest "\"\n"
  68.           "DIC " #CI_drive " FD=" #CI_disknum " LD=" #CI_disknum " SIZE="
  69.           #CI_disklen #option " PEDANTIC >CON:///1000//CLOSE"
  70.         )
  71.       )
  72.     )
  73.     (run ("FileNote \"%s.%ld\" \"%s\" Quiet" (tackon #dest "disk") #CI_disknum @app-name))
  74.     (abort "\"DIC\" has failed to create a diskimage")
  75.   )
  76. )
  77.  
  78. ;****************************
  79.  
  80. (if
  81.   (exists #readme-file)
  82.   (if
  83.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  84.     ("")
  85.     (run ("SYS:Utilities/More %s" #readme-file))
  86.   )
  87. )
  88.  
  89. (set #program "WHDLoad")
  90. (P_ChkRun)
  91.  
  92. (set #program "RawDIC")
  93. (P_ChkRun)
  94.  
  95. (set #version
  96.   (askchoice
  97.     (prompt "\nWhich version would you like to install?\n")
  98.     (default 0)
  99.     (choices "Original version (MFM)" "Budget release")
  100.     (help @askchoice-help)
  101.   )
  102. )
  103.  
  104. (if
  105.   (= #version 0)
  106.   (
  107.     (if
  108.       (= @user-level 2)
  109.       (
  110.         (set #CI_drive
  111.           (askchoice
  112.         (prompt "Select source drive for diskimages")
  113.         (default 0)
  114.         (choices "DF0:" "DF1:" "DF2:" "DF3:")
  115.         (help @askchoice-help)
  116.           )
  117.         )
  118.         (select #CI_drive
  119.           (set #CI_drive "DF0:")
  120.           (set #CI_drive "DF1:")
  121.           (set #CI_drive "DF2:")
  122.           (set #CI_drive "DF3:")
  123.         )
  124.         (set #ignore " IGNOREERRORS")
  125.       )
  126.       (set #CI_drive "DF0:")
  127.       (set #ignore "")
  128.     )
  129.   )
  130. )
  131.  
  132. (if
  133.   (getenv "WHDLInstPath")
  134.   (set @default-dest (getenv "WHDLInstPath"))
  135. )
  136. (set #dest
  137.   (askdir
  138.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  139.     (help @askdir-help)
  140.     (default @default-dest)
  141.     (disk)
  142.   )
  143. )
  144. (run ("setenv WHDLInstPath \"%s\"\ncopy ENV:WHDLInstPath ENVARC:" @default-dest))
  145. (set #dest (tackon #dest @app-name))
  146. (if
  147.   (exists #dest)
  148.   (
  149.     (set #choice
  150.       (askbool
  151.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  152.         (default 1)
  153.         (choices "Delete" "Skip")
  154.         (help @askbool-help)
  155.       )
  156.     )
  157.     (if
  158.       (= #choice 1)
  159.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  160.     )
  161.   )
  162. )
  163. (makedir #dest
  164.   (help @makedir-help)
  165.   (infos)
  166. )
  167.  
  168. ;----------------------------
  169.  
  170. (if
  171.   (exists ("%s.newicon" @app-name))
  172.   (set #icon
  173.     (askchoice
  174.       (prompt "\nWhich icon would you like to install?\n")
  175.       (default 0)
  176.       (choices "Normal" "NewIcon" "GlowIcon" "Exotic NewIcon (box scan)" "Exotic GlowIcon (box scan)")
  177.       (help @askchoice-help)
  178.     )
  179.   )
  180.   (set #icon 0)
  181. )
  182. (select #icon
  183.   (set #icon ("%s.inf" @app-name))
  184.   (set #icon ("%s.newicon" @app-name))
  185.   (set #icon ("%s.glowicon" @app-name))
  186.   (set #icon ("%s.newexot" @app-name))
  187.   (set #icon ("%s.glowexot" @app-name))
  188. )
  189. (copyfiles
  190.   (help @copyfiles-help)
  191.   (source #icon)
  192.   (newname ("%s.info" @app-name))
  193.   (dest #dest)
  194. )
  195. (tooltype
  196.   (dest (tackon #dest @app-name))
  197.   (settooltype "Slave" ("%s.Slave" @app-name))
  198.   (setdefaulttool "WHDLoad")
  199.   (setstack 10240)
  200.   (noposition)
  201. )
  202. (copyfiles
  203.   (help @copyfiles-help)
  204.   (source ("%s.slave" @app-name))
  205.   (dest #dest)
  206. )
  207. (if
  208.   (exists #readme-file)
  209.   (copyfiles
  210.     (help @copyfiles-help)
  211.     (source #readme-file)
  212.     (dest #dest)
  213.   )
  214. )
  215. (if
  216.   (exists ("%s.info" #readme-file))
  217.   (
  218.     (copyfiles
  219.       (help @copyfiles-help)
  220.       (source ("%s.info" #readme-file))
  221.       (dest #dest)
  222.     )
  223.     (tooltype
  224.       (dest (tackon #dest #readme-file))
  225.       (noposition)
  226.     )
  227.   )
  228. )
  229. (if
  230.   (exists #docs-file)
  231.   (copyfiles
  232.     (help @copyfiles-help)
  233.     (source #docs-file)
  234.     (dest #dest)
  235.   )
  236. )
  237. (if
  238.   (exists ("%s.info" #docs-file))
  239.   (
  240.     (copyfiles
  241.       (help @copyfiles-help)
  242.       (source ("%s.info" #docs-file))
  243.       (dest #dest)
  244.     )
  245.     (tooltype
  246.       (dest (tackon #dest #docs-file))
  247.       (noposition)
  248.     )
  249.   )
  250. )
  251. (if
  252.   (exists #highs-file)
  253.   (copyfiles
  254.     (help @copyfiles-help)
  255.     (source #highs-file)
  256.     (dest #dest)
  257.   )
  258. )
  259.  
  260. (copyfiles
  261.   (help @copyfiles-help)
  262.   (source ("%s.islave" @app-name))
  263.   (dest #dest)
  264. )
  265.  
  266. (working)
  267.  
  268. ;----------------------------
  269.  
  270. (if
  271.   (= #version 0)
  272.   (
  273.     (run ("CD \"%s\"\nRawDIC SLAVE=%s.islave SOURCE=%s%s\nDelete %s.islave" #dest @app-name #CI_drive #ignore @app-name))
  274.     (if
  275.       (exists (tackon #dest #last-file))
  276.       ("")
  277.       (abort "Diskimaging was not successful!\nRawDIC was unable to create all needed files!")
  278.     )
  279.   )
  280. )
  281.  
  282. (if
  283.   (= #version 1)
  284.   (P_MakeImages)
  285. )
  286.  
  287. ;----------------------------
  288.  
  289. (run ("Delete %s ALL QUIET FORCE" #cleanup))    ;delete temporary files
  290.  
  291. (exit)
  292.